home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Foro / FUERTES / GALEON / JARCIA.INC < prev    next >
Text File  |  1998-06-28  |  4KB  |  178 lines
  1. #declare cabos_mastelero_gavia_mayor=
  2. union
  3. {
  4.  cylinder {<-9,173,0>,<-9,171,-20>,.25}
  5.  cylinder {<-9,173,0>,<-9,171,20>,.25}
  6.  cylinder {<-9,173,0>,<-9,170.75,-40>,.25}
  7.  cylinder {<-9,173,0>,<-9,170.75,40>,.25}
  8. }
  9.  
  10. #declare cabos_mastelero_mayor_mayor=
  11. union
  12. {
  13.  cylinder {<-10,99,0>,<-10,96.5,-30>,.25}
  14.  cylinder {<-10,99,0>,<-10,96.5,30>,.25}
  15.  cylinder {<-10,99,0>,<-10,96.25,-50>,.25}
  16.  cylinder {<-10,99,0>,<-10,96.25,50>,.25}
  17. }
  18.  
  19. #declare cabos_mastelero_gavia_trinquete=
  20. union
  21. {
  22.  cylinder {<-104,158,0>,<-104,156,-15>,.25}
  23.  cylinder {<-104,158,0>,<-104,156,15>,.25}
  24.  cylinder {<-104,158,0>,<-104,155.75,-30>,.25}
  25.  cylinder {<-104,158,0>,<-104,155.75,30>,.25}
  26. }
  27.  
  28. #declare cabos_mastelero_mayor_trinquete=
  29. union
  30. {
  31.  cylinder {<-105,94,0>,<-105,91.5,-20>,.25}
  32.  cylinder {<-105,94,0>,<-105,91.5,20>,.25}
  33.  cylinder {<-105,94,0>,<-105,91.25,-40>,.25}
  34.  cylinder {<-105,94,0>,<-105,91.25,40>,.25}
  35. }
  36.  
  37. #declare estays_mayor_trinquete=
  38. union
  39. {
  40.  cylinder {<-84.5,95,0>,<-10.5,174,0>,.25}
  41.  cylinder {<-92,55,0>,<-15.5,100,0>,.25}
  42. }
  43.  
  44. #declare estays_mayor_mesana=
  45. union
  46. {
  47.  cylinder {<58.25,147,0>,<.5,174,0>,.25}
  48.  cylinder {<57,52.5,0>,<10.5,100,0>,.25}
  49. }
  50.  
  51. #declare estays_masteleros_mayor_mesana=
  52. union
  53. {
  54.  cylinder {<-9,170,-40.5>,<58.25,147,0>,.25}
  55.  cylinder {<-9,170,40.5>,<58.25,147,0>,.25}
  56.  cylinder {<-10,95,-60.5>,<57,53.5,0>,.25}
  57.  cylinder {<-10,95,60.5>,<57,53.5,0>,.25}
  58. }
  59.  
  60. #declare estays_masteleros_trinquete_mayor=
  61. union
  62. {
  63.  cylinder {<-10.5,174,0>,<-104,155,35.5>,.25}
  64.  cylinder {<-10.5,174,0>,<-104,155,-35.5>,.25}
  65.  cylinder {<-15.5,100,0>,<-105,90,-50.5>,.25}
  66.  cylinder {<-15.5,100,0>,<-105,90,50.5>,.25}
  67. }
  68.  
  69. #declare estays_trinquete_baupres=
  70. union
  71. {
  72.  torus {1,.1 rotate x*90 translate <-199,51.8,0> texture {metal}}
  73.  cylinder {<-110.5,95,0>,<-246.5,68.5,0>,.25}
  74. }
  75.  
  76. #declare escalas_cofa_mayor=
  77. union
  78. {
  79.  #declare aa=-5
  80.  #while (aa<11)
  81.    cylinder {<aa,23,26.5>,<aa,100,11.5>,.25}
  82.    cylinder {<aa,23,-26.5>,<aa,100,-11.5>,.25}
  83.    #declare aa=aa+5
  84.  #end
  85.  #declare aa=23
  86.  #declare bb=26.5
  87.  #while (aa<100)
  88.   #if (aa>23)
  89.    cylinder {<-5,aa,bb>,<10,aa,bb>,.25}
  90.    cylinder {<-5,aa,bb*-1>,<10,aa,bb*-1>,.25}
  91.   #end
  92.    #declare aa=aa+5
  93.    #declare bb=bb-1.006666666667
  94.  #end
  95. }
  96.  
  97. #declare escalas_cofa_trinquete=
  98. union
  99. {
  100.  #declare aa=-100
  101.  #while (aa<-80)
  102.    cylinder {<aa,33.4,31>,<aa,95,11.5>,.25}
  103.    cylinder {<aa,33.4,-31>,<aa,95,-11.5>,.25}
  104.    #declare aa=aa+5
  105.  #end
  106.  #declare aa=32.5
  107.  #declare bb=31
  108.  #while (aa<95)
  109.   #if (aa>32.5)
  110.    cylinder {<-100,aa,bb>,<-85,aa,bb>,.25}
  111.    cylinder {<-100,aa,bb*-1>,<-85,aa,bb*-1>,.25}
  112.   #end
  113.    #declare aa=aa+5
  114.    #declare bb=bb-1.56
  115.  #end
  116. }
  117.  
  118. #declare escalas_puntal_mayor=
  119. union
  120. {
  121.  #declare aa=-7
  122.  #while (aa<0)
  123.    cylinder {<aa,100,9>,<aa,174,3.5>,.25}
  124.    cylinder {<aa,100,-9>,<aa,174,-3.5>,.25}
  125.    #declare aa=aa+3
  126.  #end
  127.  #declare aa=100
  128.  #declare bb=9
  129.  #while (aa<174)
  130.   #if (aa>104)
  131.    cylinder {<-1,aa,bb>,<-7,aa,bb>,.25}
  132.    cylinder {<-1,aa,bb*-1>,<-7,aa,bb*-1>,.25}
  133.   #end
  134.    #declare aa=aa+5
  135.    #declare bb=bb-0.3716216216216
  136.  #end
  137. }
  138.  
  139. #declare escalas_puntal_trinquete=
  140. union
  141. {
  142.  #declare aa=-102
  143.  #while (aa<-95)
  144.    cylinder {<aa,95,9>,<aa,159,3.5>,.25}
  145.    cylinder {<aa,95,-9>,<aa,159,-3.5>,.25}
  146.    #declare aa=aa+3
  147.  #end
  148.  #declare aa=95
  149.  #declare bb=9
  150.  #while (aa<159)
  151.   #if (aa>96)
  152.    cylinder {<-102,aa,bb>,<-96,aa,bb>,.25}
  153.    cylinder {<-102,aa,bb*-1>,<-96,aa,bb*-1>,.25}
  154.   #end
  155.    #declare aa=aa+5
  156.    #declare bb=bb-0.4296875
  157.  #end
  158. }
  159.  
  160. #declare jarcia=
  161. union
  162. {
  163.  object {cabos_mastelero_gavia_mayor}
  164.  object {cabos_mastelero_mayor_mayor}
  165.  object {cabos_mastelero_gavia_trinquete}
  166.  object {cabos_mastelero_mayor_trinquete}
  167.  object {estays_mayor_trinquete}
  168.  object {estays_mayor_mesana}
  169.  object {estays_trinquete_baupres}
  170.  object {escalas_cofa_mayor}
  171.  object {escalas_cofa_trinquete}
  172.  object {escalas_puntal_mayor}
  173.  object {escalas_puntal_trinquete}
  174.  object {estays_masteleros_mayor_mesana}
  175.  object {estays_masteleros_trinquete_mayor}
  176.  texture {cuerda}
  177. }
  178.